home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / newsgroups / misc.20041116-20060924 / 000390_nospam@killspam.org_Mon Jul 24 14:31:47 2006.msg < prev    next >
Internet Message Format  |  2020-01-01  |  2KB
  1. Path: reader2.panix.com!reader1.panix.com!panix!newsfeed.media.kyoto-u.ac.jp!newshub.sdsu.edu!elnk-nf2-pas!newsfeed.earthlink.net!stamper.news.pas.earthlink.net!newsread2.news.pas.earthlink.net.POSTED!9477d3c5!not-for-mail
  2. From: <nospam@killspam.org>
  3. Newsgroups: comp.protocols.kermit.misc
  4. References: <ZTwvg.428$gF6.317@newsread2.news.pas.earthlink.net> <slrnebv5tf.kfh.fdc@panix1.panix.com>
  5. Subject: Re: file pattern matching on files
  6. Lines: 23
  7. X-Priority: 3
  8. X-MSMail-Priority: Normal
  9. X-Newsreader: Microsoft Outlook Express 6.00.2900.2869
  10. X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2869
  11. X-RFC2646: Format=Flowed; Original
  12. Message-ID: <GYqwg.1451$gF6.66@newsread2.news.pas.earthlink.net>
  13. Date: Sat, 22 Jul 2006 14:52:22 GMT
  14. NNTP-Posting-Host: 24.148.161.57
  15. X-Complaints-To: abuse@earthlink.net
  16. X-Trace: newsread2.news.pas.earthlink.net 1153579942 24.148.161.57 (Sat, 22 Jul 2006 07:52:22 PDT)
  17. NNTP-Posting-Date: Sat, 22 Jul 2006 07:52:22 PDT
  18. Organization: EarthLink Inc. -- http://www.EarthLink.net
  19. Xref: panix comp.protocols.kermit.misc:15522
  20.  
  21. My "final solution"
  22.  
  23. I call this macro prior to executing any download utilizing pattern 
  24. matching.
  25. For more general use, error checking to handle duplicate filenames and
  26. rename failure should be implemented.
  27.  
  28. define RenameLowerCase {
  29.    local files_matching_pattern
  30.    local num_files_matching_pattern
  31.    local \%i
  32.    assign files_matching_pattern *
  33.  
  34.    remote query kermit \%ffiles(\m(files_matching_pattern))
  35.    assign num_files_matching_pattern \Feval(\v(query) -1) ; ffiles() returns 
  36. a zero based array.
  37.    for \%i 0 \m(num_files_matching_pattern) 1 {
  38.      remote query kermit \%fnextfile(\m(files_matching_pattern))
  39.      remote rename \v(query) \Flower(\v(query))
  40.    }
  41.  }
  42.  
  43.